;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
(DEFUN C:ELPT ()
  (SETQ PT1 (GETPOINT "\nPick point for elevation: "))
  (PRINC (STRCAT "\nELEVATION IS "(RTOS(/(CADR PT1)5.0)2 2)))
  (PRINC)
)